home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / uhren & terminkalender / kalender / acal / install-acal < prev    next >
Text File  |  1996-04-07  |  5KB  |  235 lines
  1. ;
  2. ; Script d'installation pour ACal
  3. ;
  4.  
  5. (set @default-dest "SYS:WBStartup")
  6.  
  7.  
  8. ;===========================================================================
  9. ; Chaînes françaises
  10.  
  11. (if (= @language "français")
  12.     (
  13.         (set default_lang 2)
  14.         
  15.         (set #bad-kick "ACal nécessite au moins le Kickstart 2.04\nDésolé")
  16.         
  17.         (welcome "Bienvenue dans l'utilitaire d'installation d'ACal")
  18.         (set #install-msg
  19.             (cat "\nScript d'installation d'ACal v1.2\n"
  20.                  "Ce script installe ACal sur votre Amiga.\n\n"
  21.                  "© 1994-95 Denis Galiana"
  22.             )
  23.         )
  24.         
  25.         (set #acal-dir "Indiquez le répertoire où doit être copié ACal")
  26.  
  27.         (set #copy-acal "Copie du programme ACal et de son icône")
  28.  
  29.         (set #langage
  30.             (cat "Choisissez les différentes traductions d'ACal "
  31.                  "que vous voulez installer."
  32.             )
  33.         )
  34.         
  35.         (set #run-acal
  36.             (cat "Le programme ACal va maintenant être lancé afin de vous "
  37.                  "permettre de le configurer.\n\n"
  38.                  "Dans le menu, choisissez 'Verrouiller fenêtre' afin de "
  39.                  "pouvoir déplacer la fenêtre.\n"
  40.                  "Puis, choisissez les fontes du jour et du mois.\n\n"
  41.                  "Finallement, sauvegardez la configuration (position et "
  42.                  "fontes) et quittez."
  43.             )
  44.         )
  45.  
  46.         (set #acal-running "Lancement du programme ACal ...")
  47.     )
  48. )
  49.  
  50.  
  51. ;===========================================================================
  52. ; english strings
  53.  
  54. (if (= @language "english")
  55.     (
  56.         (set default_lang 1)
  57.         
  58.         (set #bad-kick "ACal needs Kickstart 2.04 or more.\nSory")
  59.         
  60.         (welcome "Welcome in ACal installation utility")
  61.         (set #install-msg
  62.             (cat "\nInstallation script for ACal v1.2\n"
  63.                  "This script installs ACal on your Amiga.\n\n"
  64.                  "© 1994-95 Denis Galiana"
  65.             )
  66.         )
  67.         
  68.         (set #acal-dir "Please, select directory where ACal should be copied")
  69.  
  70.         (set #copy-acal "Copying ACal program and its icon")
  71.  
  72.         (set #langage
  73.             (cat "Choose different translations of ACal "
  74.                  "that you want to install."
  75.             )
  76.         )
  77.         
  78.         (set #run-acal
  79.             (cat "ACal program is about to be run for you to set it up.\n\n"
  80.                  "In the menu, select 'Lock window' to allow window movement.\n"
  81.                  "Then, choose day and month fonts.\n\n"
  82.                  "Finaly, save the configuration (position and fonts) "
  83.                  "then quit."
  84.             )
  85.         )
  86.  
  87.         (set #acal-running "Run ACal program ...")
  88.     )
  89. )
  90.  
  91. ;===========================================================================
  92. ; deutsche strings
  93. (if (= @language "deutsch")
  94.     (
  95.         (set default_lang 4)
  96.         
  97.         (set #bad-kick "ACal benötigt Kickstart 2.04 oder höher.\nOK?")
  98.         
  99.         (welcome "Wilkommen bei der ACal installation.")
  100.         (set #install-msg
  101.             (cat "\nInstallation Skript für ACal v1.2\n"
  102.                  "Dieses Skript installiert ACal auf Ihrem Amiga.\n\n"
  103.                  "© 1994-95 Denis Galiana"
  104.             )
  105.         )
  106.         
  107.         (set #acal-dir "In welches Verzeichnis soll ACal kopiert werden?")
  108.  
  109.         (set #copy-acal "kopiere ACal und sein Piktogramm")
  110.  
  111.         (set #langage
  112.             (cat "Bitte wählen Sie aus, welcher Sprach-"
  113.                  "katalog installiert werden soll."
  114.             )
  115.         )
  116.         
  117.         (set #run-acal
  118.             (cat "ACal kann jetzt gestartet werden um die Einstellungen zu ändern.\n\n"
  119.                  "Im Menü müssen Sie 'Fenster sperren' anwählen um das\n"
  120.                              "Fenster neu positionieren zu können.\n\n"
  121.                              "Dann wählen Sie die Fonts die Sie nutzen möchten.\n\n"
  122.                              "Abschließend speichern Sie die Voreinstellungen\n"
  123.                              "und beenden ACal wieder. "
  124.             )
  125.         )
  126.  
  127.         (set #acal-running "ACal starten ?")
  128.     )
  129. )
  130.  
  131.  
  132.  
  133.  
  134.  
  135. ;===========================================================================
  136. ; Regarde si la version du système est au moins 2.04 (37)
  137.  
  138.  
  139. (if (< (/ (getversion) 65536) 37)
  140.     (
  141.         (message #bad-kick)
  142.         (exit (quiet))
  143.     )
  144. )
  145.  
  146. ;===========================================================================
  147. ; Début
  148.  
  149. (message #install-msg)
  150.  
  151. ;===========================================================================
  152. ; Copie du programme dans sys:wbstartup
  153.  
  154. ; Demande le répertoire
  155.  
  156. (set @default-dest
  157.     (askdir
  158.         (prompt #acal-dir)
  159.         (help @askdir-help)
  160.         (default "SYS:WBStartup")
  161.     )
  162. )
  163.  
  164. (copyfiles
  165.     (prompt #copy-acal)
  166.     (help @copyfiles-help)
  167.     (source "ACal")
  168.     (dest @default-dest)
  169.     (infos)
  170.     (confirm)
  171. )
  172.  
  173. (complete 50)
  174.  
  175. ;===========================================================================
  176. ; Installe la Locale
  177.  
  178. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  179.     (
  180.         (set lang
  181.             (askoptions
  182.                 (prompt #langage)
  183.                 (help #langage-help)
  184.                 (choices
  185.                     "English"
  186.                     "Français"
  187.                     "Deutsch"
  188.                 )
  189.                 (default default_lang)
  190.             )
  191.         )
  192.  
  193.         (set n 0)
  194.         (while
  195.             (set language
  196.                 (select n
  197.                     "english"
  198.                     "français"
  199.                     "deutsch"
  200.                     ""
  201.                 )
  202.             )
  203.             (
  204.                 (if (AND (IN lang n) (<> 1 n))
  205.                     (
  206.                         (copylib
  207.                             (prompt "")
  208.                             (help "")
  209.                             (source (cat "Catalogs/" language "/ACal.catalog"))
  210.                             (dest (cat "LOCALE:Catalogs/" language))
  211.                             (confirm)
  212.                         )
  213.                     )
  214.                 )
  215.                 (set n (+ n 1))
  216.             )
  217.         )
  218.     )
  219. )
  220.  
  221. (complete 80)
  222.  
  223. ;===========================================================================
  224. ; Lancement du programme pour la sauvegarde des préférences
  225.  
  226. (message #run-acal)
  227.  
  228. (run (tackon @default-dest "ACal")
  229.     (prompt #acal-running)
  230.     (help "")
  231.     (confirm)
  232. )
  233.  
  234. (complete 100)
  235.